gusucode.com > 智睿政府网站管理系统 V2.1.0 > 智睿政府网站管理系统 V2.1.0\code\manage\Admin_NavEdit.asp
<!--#include file="../Include/conn.asp"-->
<!--#include file="Admin_check.asp"-->
<!--#include file="Font_Color.asp"-->
<%
response.expires = 0
response.expiresabsolute = now() - 1
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.cachecontrol = "no-cache"
if Instr(session("AdminPurview"),"|112,")=0 then
response.write ("<font color='red')>你不具有该管理模块的操作权限，请返回！</font>")
response.end
end if
'========判断是否具有管理权限
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/Admin_css.css" type=text/css rel=stylesheet>
<script language="javascript" src="images/Admin.js"></script>
<title>导航管理</title></head>
<body>
<%
dim Result
Result=request.QueryString("Result")
dim ID,NavName,NavUrl,Remark,FontCor,eegcolr
ID=request.QueryString("ID")
call NavEdit()
%>
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#6298E1">
<tr>
<td height="24" nowrap background="images/th_bg.gif"><font color="#FFFFFF"> <strong>导航栏目：添加，修改导航栏目</strong></font></td>
</tr>
<tr>
<td height="24" align="center" nowrap bgcolor="#EBF2F9"><a href="Admin_NavEdit.asp?Result=Add" >添加导航栏目</a><font color="#0000FF"> | </font><a href="Admin_NavList.asp" >查看导航栏目</a></td>
</tr>
</table>
<br>
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#6298E1">
<form name="editForm" method="post" action="Admin_NavEdit.asp?Action=SaveEdit&Result=<%=Result%>&ID=<%=ID%>">
<tr>
<td height="24" nowrap bgcolor="#EBF2F9"><table width="100%" border="0" cellpadding="0" cellspacing="0" id=editProduct idth="100%">
<tr>
<td width="160" height="20" align="right"> </td>
<td> </td>
</tr>
<tr>
<td height="20" align="right">导航名称：</td>
<td><input name="NavName" type="text" class="textfield" id="NavName" style="WIDTH: 240;" value="<%=NavName%>" maxlength="100"> * 不少于3个字符</td>
</tr>
<tr>
<td height="20" align="right">导航色彩：</td>
<td><input name="FontCor" type="text" id="textfield" value="<%=FontCor%>"size="7"><img src="Images/tm.gif" width="18" height="17" align="absmiddle" style="background-color:<%=FontCor%>" onClick="colorcd('editForm','FontCor','eegcolr')" onMouseOver="this.style.cursor='hand'">
</div></td>
</tr>
<tr>
<td height="20" align="right">链接网址：</td>
<td><input name="NavUrl" type="text" class="textfield" id="NavUrl" style="WIDTH: 480;" value="<%=NavUrl%>"> *</td>
</tr>
<tr>
<td height="20" align="right" valign="top">备注说明：
<td><textarea name="Remark" rows="6" class="textfield" id="Remark" style="WIDTH: 480;"><%=Remark%></textarea></td>
</tr>
<tr>
<td height="30" align="right"> </td>
<td valign="bottom"><input name="submitSaveEdit" type="submit" class="button" id="submitSaveEdit" value="保存" style="WIDTH: 80;" ></td>
</tr>
<tr>
<td height="20" align="right"> </td>
<td valign="bottom"> </td>
</tr>
</table></td>
</tr>
</form>
</table>
</BODY>
</HTML>
<%
sub NavEdit()
dim Action,rsCheckAdd,rs,sql
Action=request.QueryString("Action")
if Action="SaveEdit" then '保存编辑管理员
set rs = server.createobject("adodb.recordset")
if len(trim(request.Form("NavName")))<3 then
response.write ("<script language=javascript> alert('导航名称为必填项目！');history.back(-1);</script>")
response.end
end if
if Result="Add" then '创建网站管理员
sql="select * from zhi_rui_g_Navigation"
rs.open sql,conn,1,3
rs.addnew
rs("NavName")=trim(Request.Form("NavName"))
rs("FontCor")=trim(Request.Form("FontCor"))
rs("NavUrl")=trim(Request.Form("NavUrl"))
rs("ViewFlag")=1
rs("Remark")=trim(Request.Form("Remark"))
rs("Sequence")=99
rs("AddTime")=now()
end if
if Result="Modify" then '修改网站管理员
sql="select * from zhi_rui_g_Navigation where ID="&ID
rs.open sql,conn,1,3
rs("NavName")=trim(Request.Form("NavName"))
rs("FontCor")=trim(Request.Form("FontCor"))
rs("NavUrl")=trim(Request.Form("NavUrl"))
rs("Remark")=trim(Request.Form("Remark"))
end if
rs.update
rs.close
set rs=nothing
response.write "<script language=javascript> alert('成功编辑导航栏目！');location.replace('Admin_NavList.asp');</script>"
else '提取管理员
if Result="Modify" then
set rs = server.createobject("adodb.recordset")
sql="select * from zhi_rui_g_Navigation where ID="& ID
rs.open sql,conn,1,1
NavName=rs("NavName")
FontCor=rs("FontCor")
Remark=rs("Remark")
NavUrl=rs("NavUrl")
rs.close
set rs=nothing
end if
end if
end sub
%>